﻿Public Class Buscar_Facturas
    Dim datos As New datos
    Dim tratamiento As New Tratamiento_Objetos
    Private Sub buscar_datos()

        Dim sql As String
        Dim tabla As New Data.DataTable

        sql = "SELECT factura.numero_factura, tipo_factura.nombre, factura.fecha, tipo_pago.nombre, tipo_documento.nombre, factura.numero_documento, factura.total" & _
            " FROM (((factura INNER JOIN tipo_factura ON factura.id_tipo_factura = tipo_factura.id_tipo_factura)" & _
            " INNER JOIN tipo_pago on factura.id_tipo_pago = tipo_pago.id_tipo_pago)" & _
            " INNER JOIN tipo_documento on factura.id_tipo_documento = tipo_documento.id_tipo_documento)"

        tabla = datos.consulta(sql)

        Dim c As Integer

        Me.grid1.Rows.Clear()

        For c = 0 To tabla.Rows.Count() - 1
            Me.grid1.Rows.Add(tabla.Rows(c)(0), tabla.Rows(c)(1), tabla.Rows(c)(2), tabla.Rows(c)(3), tabla.Rows(c)(4), tabla.Rows(c)(5) _
            , tabla.Rows(c)(6))
        Next
    End Sub

    Private Sub Buscar_Facturas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buscar_datos()
    End Sub


    Private Sub grid1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grid1.CellDoubleClick
        Dim temp As String = "nombre = '" & grid1.CurrentRow.Cells(1).Value & "'"
        Dim tabla As Data.DataTable = datos.leo_tabla("tipo_factura", temp)

        Factura.cmb_tipo_factura.SelectedValue = tabla.Rows(0)(0)
        Factura.txt_nro_factura.Text = grid1.CurrentRow.Cells(0).Value

        Me.Close()
    End Sub

    Private Sub btn_salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_salir.Click
        Me.Close()
    End Sub
End Class